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-- MakelmageUtilities. Mesa Edited by Sandman on May 17, 1978 8:54 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [PageSize], 

AUoFileDefs: FROM "aUof iledef s" USING [DirSN, eofDA, FA, FP, SN], 

BcdMergeDefs: FROM "bcdmergedef s" USING [ 

Final izeMerge, Initial izeMerge, MergeBcd, MergedBcdSize, MergeModule, 

WriteMergedBcd], 
ControlDefs: FROM "controldef s" USING [ 

GFT, GFTIndex, GFTItem, NullGlobal Frame] , 
DirectoryDefs: FROM "directorydef s" USING [EnumerateDirectory], 
FrameDefs: FROM "framedefs" USING [ 

EnumerateGlobalFrames, MakeCodeResident , SwapInCode, SwapOutCode] , 
ImageDefs: FROM "imagedefs" USING [ImageHeader , Mapltem], 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

BcdBase, ReleaseBcdSeg, SetUpBcd], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdAddress, BcdSegFromLoadState, ConfigGFI, Configlndex, ConfigNull, 

EnumerateLoadStateBcds, FileSegmentHandle, Initial izeReloc at ion, 

MapRealToConf ig, ReleaseRelocation, Relocation], 
MiscDefs: FROM "miscdefs" USING [SetBlock], 
MIUtilityDefs: FROM "miutil itydef s" USING [ 

CFA, Configlndex, DataSegmentHandle, FileHandle, FileRequest, 

FileSegmentHandle, FP, GlobalFrameHandle, LoadStateGFT, MoveWords, 

PageNumber, ProcDesc, SpaceHeader, vDA], 
SDDefs: FROM "sddefs" USING [SD, sGFTLength], 
SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, DataSegmentAddress , DefaultBase, Def aul tVersion, 

DeleteDataSegment, EnumerateFileSegments , FileHandle, FileHint, 

FileSegmentHandle, InsertFile, JumpToPage, NewDataSegment, NewFile. 

NewFileSegment , Read, SwapOut, Unlock, Write], 
StreamDefs: FROM "streamdefs" USING [ 

DiskHandle, Getlndex, Setlndex, Streamlndex], 
StringDefs: FROM "stringdefs" USING [ 

EquivalentString, EquivalentSubStrings , SubStringDescriptor], 
SystemDefs: FROM "systemdefs" USING [Al locatePages, FreePages]; 

DEFINITIONS FROM ImageDefs, MIUtilityDefs; 

MakelmageUtilities: PROGRAM 

IMPORTS DirectoryDefs, FrameDefs, LoadStateDefs, MiscDefs, SegmentDefs, 

StreamDefs, StringDefs, SystemDefs, BcdMergeDefs, MIUtilityDefs. 

LoaderBcdUtilDefs 
EXPORTS ImageDefs, MIUtilityDefs 
SHARES SegmentDefs, ControlDefs, ImageDefs « 

PUBLIC BEGIN 



-- file requests 

RequestHead: POINTER TO FileRequest; 

InitFileRequest: PROCEDURE = BEGIN RequestHead <- NIL; END; 

AddFileRequest: PROCEDURE [r: POINTER TO FileRequest] » 
BEGIN 

r.link <- RequestHead; 
RequestHead *- r; 
END; 

DropFileRequest: PROCEDURE [f: FileHandle] « 
BEGIN 

r: POINTER TO FileRequest; 
prev: POINTER TO FileRequest <- NIL; 
FOR r ^ RequestHead, r.link UNTIL r « NIL DO 
BEGIN 
IF r.file - f THEN 

IF prev « NIL THEN RequestHead ♦- r.link 
ELSE prev. link <- r.link; 
EXIT; 
END; 
prev <- r; 
ENDLOOP; 
END; 
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ProcessFileRequests: PROCEDURE ■ 
BEGIN OPEN AUoFileDefs; 

checkone: PROCEDURE [fp: POINTER TO FP, dname: STRING] RETURNS [BOOLEAN] - 
BEGIN 

ss: StringDefs.SubStringDescriptor ^ [dname, , dname. length] ; 
r: POINTER TO FileRequest; 
prev: POINTER TO FileRequest *- NIL; 
FOR r ^ RequestHead, rJink UNTIL r « NIL DO 
IF (WITH r SELECT FROM 

long ■> StringDef s.EquivalentSubStrings[0ss,0nam0], 
short «> StringOef s.EquivalentString[dname,name], 
ENDCASE -> FALSE) THEN 
BEGIN 

IF r.file « NIL THEN r.file ^ SegmentDefs . InsertFile[fp, r. access] 
ELSE r.file.fp ^ fpt; 
IF prev - NIL THEN RequestHead <- r.link 
ELSE prev.l ink <- r.link; 
END 
ELSE prev ^ r; 
ENDLOOP; 
RETURN[RequestHead » NIL] 
END; 

D i rec to ry Def s. En umer a teDi rectory [checkone]; 
END; 

-- bed file names 

GetBcdFileNames: PROCEDURE [nbcds: Configlndex] 
RETURNS [names: DESCRIPTOR FOR ARRAY OF STRING] ■ 
BEGIN 

nfound: Configlndex ^ 0; 

GetNames: PROCEDURE [fp: POINTER TO FP. s: STRING] RETURNS[BOOLEAN] » 
BEGIN 

FindBcd: PROCEDURE [config: Configlndex, bed: LoadStateDef s.BcdAddress] RETURNS [BOOLEAN] =« 
BEGIN 

IF fpt =» bcd.fp THEN 
BEGIN 

names[conf ig] ♦- GetString[s]; 
nfound ♦- nfound + 1; 
RETURN[TRUE]; 
END; 
RETURN[FALSE]; 
END; 
[] <r- LoadStateDef s .EnumerateLoadStateBcds[recentfirst, FindBcd]; 
RETURN[nfound « nbcds]; 
END; 
names <- DESCRIPTOR[GetSpace[nbcds]. nbcds]; 
MiscDefs.SetBlock[BASE[name8], GetString["(anon)"] , nbcds]; 
DirectoryDef s.EnumerateDirectory[GetNames]; 
RETURN[names]; 
END; 

-- space allocation 

SpaceList: POINTER TO SpaceHeader ^ NIL; 
SpacePointer: POINTER TO SpaceHeader; 
SpaceLeft: CARDINAL; 

InitSpace: PROCEDURE - BEGIN SpaceLeft ^ 0; END; 

GetSpace: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER] = 
BEGIN 

newseg: DataSegmentHandle; 
IF n > SpaceLeft THEN 

BEGIN 

newseg ^ SegmentDefs .NewOataSegment[ SegmentDefs ,Def aul tBase, 1]; 

SpacePointer ♦- SegmentDefs .DataSegmentAddress[newseg]; 

SpacePointer. 1 ink *- SpaceList; 

SpacePointer. segment ^ newseg; 

SpaceList ♦- SpacePointer; 

SpacePointer ^ SpacePointer + SIZE[SpaceHeader]; 

SpaceLeft ^ Al toDef s .PageSize ~ SIZE[SpaceHeader]; 

END; 
p ^ SpacePointer; 
SpacePointer ^ SpacePointer + n; 
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SpaceLeft ^ SpaceLeft - n; 
END; 

GetString: PROCEDURE [oldstring: STRING] RETURNS [newstring: STRING] - 
BEGIN 

i, length: CARDINAL; 

string: TYPE » POINTER TO MACHINE DEPENDENT REC0RD[1ength .maxlength: CARDINAL]; 
length <- oldstring .length; 
newstring <- GetSpace[(length+5)/2]; 
newstring. length <- length; 

LOOPHOLE[newstring, string] .maxlength ^ length; 
FOR i IN [0.. length) DO newstring[i] ♦- oldstring[i]; ENDLOOP; 
RETURN; 
END; 

FreeAllSpace: PROCEDURE - 
BEGIN 

next: POINTER TO SpaceHeader; 
UNTIL SpaceList « NIL DO 

next ^ SpaceList. 1 ink; 

SegmentDefs. Del eteDataSegment[SpaceLi St. segment]; 

SpaceList ^ next; 

ENDLOOP; 
END; 

-- image file management 

LockCodeSegment: PROCEDURE [p: ProcDesc] ■ 
BEGIN OPEN FrameDefs; 

frame: GlobalFrameHandle ^ ControlDefs.GFT[p.gfi] .frame; 
MakeCodeResident[f rame] ; 
SwapInCode[f rame]; 

SegmentDef s.Unlock[ frame. codesegment]; 
END; 

UnlockCodeSegment; PROCEDURE [p: ProcDesc] ■ 
BEGIN 

Segmen tDef s. Un 1 ock [Con t ro 1 Def s.GFT[ p. gfi]. frame. codesegment]; 
END; 

KDSegment: PROCEDURE RETURNS [FileSegmentHandle] « 
BEGIN OPEN SegmentDefs; 

DiskKDFile: FileHandle = NewFile["DiskDescriptor" , Read, Defaul tVersion]; 
FindKD: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 

BEGIN 

RETURN[s.file « DiskKDFile]; 

END; 
RETURN[Segmen tDef s.EnumerateFileSegments[ FindKD]]; 
END; 

DAofPage: PROCEDURE [file: FileHandle. page: PageNumber] RETURNS [next: vDA] « 
BEGIN 
cfa: CFA; 

buf: POINTER = SystemDef s, Al locatePages[l]; 
cfa.fp ^ file.fp; 

cfa. fa <- AltoFileDefs.FA[file.fp.leaderDA,0,0]; 
next <- SegmentDef s .JumpToPage[@cf a. page~l , buf ] .next; 
SystemDef s. FreePages[buf]; 
RETURN 
END; 

FilllnCAs: PROCEDURE [ 

Image: POINTER TO ImageHeader. mapindex: CARDINAL, ca: POINTER] « 

BEGIN 

i: CARDINAL; 

map: POINTER TO ARRAY [0..0) OF normal Mapltem « LOOPHOLE[0Image.map]; 

addr: POINTER; 

FOR i IN [0. .mapindex) DO 

addr <- SegmentDef s .AddressFromPage[map[i] .page]; 
THROUGH [0. .map[i]. count) DO 
cat ♦- addr; 
ca <- ca + 1; 

addr ^ addr + Al toDef s.PageSize; 
ENDLOOP; 
ENDLOOP; 
END; 
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SwapOutUnlockedCode: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] - 
BEGIN 

cseg: FileSegmentHandle ^ f .codesegment; 

IF cseg.swappedin AND cseg. lock « THEN FrameDef s .SwapOutCod0[f ]; 
RETURN[FALSE] 
END; 

SwapOutUnlocked: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] " 
BEGIN 

IF s.lock » THEN SegmentDef s.SwapOut[s] ; 
RETURN[FALSE]; 
END; 

BashHint: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 
WITH s SELECT FROM 

disk "> hint ♦- SegmentDefs. FileHint[da:AltoFi leDef s.eofDA, page:0]; 

ENDCASE; 
RETURN[FALSE]; 
END; 

BashFile: PROCEDURE [f: FileHandle] RETURNS [BOOLEAN] - 
BEGIN OPEN AltoFileDefs; 
f.open *- f .lengthvalid <- FALSE; 
IF f.fp. serial if SN[1, 0.0,0, DirSN] THEN 

f.fp <- FP[SN[1.0.1,17777B,177777B].eofDA]; 
RETURN[FALSE]; 
END; 

PatchUpGFT: PROCEDURE - 
BEGIN OPEN ControlDefs; 
i: GFTIndex; 

gft: POINTER TO ARRAY [0..0) OF GFTItem <- GFT; 
FOR i IN [l..SDDefs.SD[SDDefs.sGFTLength]) DO 

IF gft[i] = [frame: NullGlobalFrame, epbase: 177777B] THEN 
gft[i] ^ [frame: NullGlobalFrame, epbase: 0]; 

ENDLOOP; 
RETURN 
END; 

InitLoadStateGFT: PROCEDURE [initgft: LoadStateGFT, merge: BOOLEAN, nbcds: Configlndex] 
BEGIN OPEN ControlDefs, LoadStateDef s; 
rgfi, cgf i: GFTIndex ♦- 0; 
i: Configlndex; 

gft: POINTER TO ARRAY [0..0) OF GFTItem ♦- GFT; 
gftLength: CARDINAL » SDDef s .SD[SDDef s. sGFTLength] ; 
MiscDefs.SetBlock[ 

p: BASE[initgft], v: Conf igGFI[conf ig: ConfigNull, gf i : 0], 1: gftLength]; 
IF merge THEN 

FOR rgfi IN [1 .. gftLength) DO 

IF gft[rgfi]. frame # NullGlobalFrame THEN initgf t[rgf i] «- 

[config: 0, gfi: (cgf i<-cgf i+1)]; 
ENDLOOP 
ELSE 

FOR i IN [0. .nbcds) DO 
cgfi <- 0; 
FOR rgfi IN [1 . .gftLength) DO 

IF gft[rgfi]. frame # NullGlobalFrame AND 

LoadStateDefs.MapRealToConf ig[rgf i] .conf ig ■ i 
THEN initgft[rgf i] *- [config: i, gfi: (cgf i<-cgf i + 1)] ; 
ENDLOOP; 
ENDLOOP; 
END; 

NumberGFIInConfig: PROCEDURE [initgft: LoadStateGFT, con: Configlndex] 
RETURNS [ngfi: ControlDefs .GFTIndex] " 

BEGIN 

i: ControlDefs. GFTIndex; 

ngfi 4- 0; 

FOR i IN [0. .LENGTH[initgft]) DO 

IF initgf t[i] .conf ig - con THEN ngfi <- ngfi + 1; 
ENDLOOP; 

RETURN 

END; 
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-- Bed Merging Management 

TableSize: CARDINAL - 15*AUoDef s.PageSize; 

MergeAllBcds: PROCEDURE [initialgft: LoadStateGFT, code: BOOLEAN, 
names: DESCRIPTOR FOR ARRAY OF STRING] - 
BEGIN OPEN LoadStateDefs. BcdMergeDefs ; 
MergeLoadedBcds: PROCEDURE [config: Configlndex, addr: BcdAddress] RETURNS [BOOLEAN] 

BEGIN OPEN LoaderBcdUtilDefs, LoadStateDefs; 

rel : Relocation ^ Initial izeRe1ocation[conf ig] ; 

bcdseg: FileSegmentHandle ^ BcdSegFromLoadState[conf ig] ; 

bed: BcdBase ^ SetUpBcd[bcdseg] ; 

MergeBcd[bcd, rel, 0, initialgft, code, names[conf ig]] ; 

ReleaseBcdSeg[bcdseg]; 

ReleaseRelocation[rel]; 

RETURN [FALSE]; 

END; 

MergeCopiedFrames: PROCEDURE [frame: GlobalFrameHandle] RETURNS [BOOLEAN] ■ 
BEGIN 

copied: GlobalFrameHandle; 
config: Configlndex; 
ModuleCopiedFrom: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] ■ 

BEGIN 

RETURN [f # frame AND f .codesegment « frame. codesegment AND 
(config *- MapRealToConfig[f.gfi]. config) ^ ConfigNull]; 

END; 
IF MapRealToConfig[frame.gfi]. config ff ConfigNull THEN RETURN [FALSE]; 
IF ( cop ied*-FrameDefs.EnumerateGlobal Frames [ModuleCopiedFrom]) ff 

ControlDefs.NullGlobalFrame THEN 

BEGIN 

MergeModule[frame, copied, initialgft]; 

RETURN [FALSE]; 

END; 
RETURN [FALSE]; 
END; 

Initial izeMerge[TableSize, NumberGFIInConf ig[initialgf t, 0]]; 

[] <- EnumerateLoadStateBcds[recentlast , MergeLoadedBcds]; 

[] ^ FrameDef s.EnumerateGlobalFrames[MergeCopiedFrames]; 

[] <- MergedBcdSize[]; 

WriteMergedBcd[MoveWords]; 

Final izeMerge[]; 

END; 

MergeABcd: PROCEDURE [config: Configlndex, initgft: LoadStateGFT, code: BOOLEAN, 
names: DESCRIPTOR FOR ARRAY OF STRING] => 
BEGIN OPEN BcdMergeDefs, LoaderBcdUtilDefs, LoadStateDefs; 
rel: Relocation *- Initial izeRelocation[config]; 
bcdseg: FileSegmentHandle «- BcdSegFromLoadState[conf ig]; 
bed: BcdBase ♦- SetUpBcd[bcdseg] ; 

Initial i zeMerge[ bcdseg. page s+1 , NumberGFIInConf ig[ initgft, config]]; 
MergeBcd[bcd , rel, config, initgft, code, names[conf ig]]; 
ReleaseBcdSeg[bcdseg]; 
ReleaseRelocation[rel]; 
[] ^ MergedBcdSize[]; 
WriteMergedBcd[MoveWords]; 
Final izeMerge[] ; 
END; 

NewBcdSegmen tFromStream: PROCEDURE [stream: StreamDef s .DiskHandle, page: PageNumber] 
RETURNS [newpage: PageNumber, seg: FileSegmentHandle] « 
BEGIN OPEN SegmentDefs; 
index: StreamDef s .Streamlndex; 
index <- StreamDef s .Getlndex[stream]; 
IF index. byte ff THEN 

BEGIN 

index, byte ♦- 0; 

index. page <- index. page + 1; 

StreamDef s .Setlndex[stream, index]; 

END; 
seg <- NewFileSegment[stream.f ile, page+1, index. page-page, Read+Write]; 
newpage *- index. page; 
RETURN 
END; 
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END.. 



